Total Animated Gifs/Total Animated Gifs.iso/Utilities/text/Rename It/renameit.exe/Renit.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-07-04 | 43KB | 1,354 lines

object Form1: TForm1
  Left = -14
  Top = 78
  Width = 642
  Height = 450
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Rename It!'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenuEng
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 74
    Top = 355
    Width = 28
    Height = 13
    Caption = 'label2'
    Visible = False
  end
  object Label4: TLabel
    Left = 187
    Top = 355
    Width = 32
    Height = 13
    Caption = 'Label4'
    Visible = False
  end
  object Label3: TLabel
    Left = 334
    Top = 290
    Width = 49
    Height = 13
    AutoSize = False
  end
  object Label1: TLabel
    Left = 74
    Top = 337
    Width = 184
    Height = 13
    Caption = 'Select Name               Select Index List'
    Visible = False
  end
  object Label7: TLabel
    Left = 10
    Top = 337
    Width = 46
    Height = 13
    Caption = 'ItemIndex'
    Visible = False
  end
  object Label9: TLabel
    Left = 10
    Top = 355
    Width = 32
    Height = 13
    Caption = 'Label9'
    Visible = False
  end
  object Label5: TLabel
    Left = 279
    Top = 291
    Width = 48
    Height = 13
    Caption = 'Total Files'
  end
  object Label22: TLabel
    Left = 177
    Top = 291
    Width = 26
    Height = 13
    Caption = 'Mask'
  end
  object Button10: TButton
    Left = 350
    Top = 52
    Width = 33
    Height = 231
    TabOrder = 8
  end
  object HeaderControl1: THeaderControl
    Left = 3
    Top = 52
    Width = 378
    Height = 231
    Align = alNone
    Sections = <
      item
        Alignment = taCenter
        AllowClick = False
        MaxWidth = 378
        Width = 170
      end>
    OnSectionTrack = HeaderControl1SectionTrack
  end
  object FilterComboBox1: TFilterComboBox
    Left = 9
    Top = 254
    Width = 159
    Height = 21
    FileList = FileListBox1
    Filter = 'All files (*.*)|*.*|Graph|*.jpg;*.gif;*.bmp|Sound|*.wav;*.voc'
    TabOrder = 0
    OnChange = DirectoryListBox1Change
  end
  object DriveComboBox1: TDriveComboBox
    Left = 9
    Top = 58
    Width = 159
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 1
    OnChange = DirectoryListBox1Change
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 9
    Top = 80
    Width = 159
    Height = 169
    Ctl3D = True
    FileList = FileListBox1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
    OnChange = DirectoryListBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 177
    Top = 58
    Width = 200
    Height = 218
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 3
    OnChange = FileListBox1Change
    OnDblClick = FileListBox1DblClick
  end
  object Button1: TButton
    Left = 280
    Top = 334
    Width = 81
    Height = 27
    Caption = 'Display'
    TabOrder = 4
    Visible = False
    OnClick = Button1Click
  end
  object PageControl1: TPageControl
    Left = 386
    Top = 50
    Width = 242
    Height = 329
    ActivePage = Single
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    TabWidth = 60
    OnChange = PageControl1Change
    object Single: TTabSheet
      Caption = 'Single'
      object Shape3: TShape
        Left = 0
        Top = -7
        Width = 233
        Height = 321
        Brush.Color = 16777172
        Pen.Color = 16777156
        Pen.Width = 0
      end
      object Label8: TLabel
        Left = 8
        Top = 207
        Width = 212
        Height = 13
        Caption = 'first upper,invert,capitalize,upper after '#39'x'#39' char'
        Visible = False
      end
      object Label11: TLabel
        Left = 24
        Top = 220
        Width = 133
        Height = 13
        Caption = 'upper in '#39'n'#39' char,to ascii only'
        Visible = False
      end
      object Label10: TLabel
        Left = 128
        Top = 121
        Width = 78
        Height = 13
        Caption = 'chg '#39'x'#39' char to '#39'x'#39
        Visible = False
      end
      object Label6: TLabel
        Left = 48
        Top = 195
        Width = 158
        Height = 13
        Caption = 'del space (all,leave 1,left && right)'
        Visible = False
      end
      object btnGetLocalDT: TButton
        Left = 153
        Top = 230
        Width = 73
        Height = 20
        Caption = 'Current Time'
        TabOrder = 0
        OnClick = btnGetLocalDTClick
      end
      object FileNameEdit: TEdit
        Left = 46
        Top = 68
        Width = 163
        Height = 21
        TabOrder = 1
        Text = 'FileNameEdit'
        OnEnter = FileNameEditEnter
        OnExit = FileNameExtEditExit
        OnKeyPress = FileNameEditKeyPress
      end
      object FileExtEdit: TEdit
        Left = 46
        Top = 94
        Width = 163
        Height = 21
        TabOrder = 2
        Text = 'FileExtEdit'
        OnEnter = FileNameEditEnter
        OnExit = FileNameExtEditExit
        OnKeyPress = FileNameEditKeyPress
      end
      object FileNameCase: TRadioGroup
        Left = 66
        Top = 140
        Width = 75
        Height = 53
        Caption = 'File Name'
        Color = 16777172
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          'Normal'
          'UPPER'
          'lower')
        ParentColor = False
        ParentFont = False
        TabOrder = 3
        OnClick = FileNameCaseClick
      end
      object btnPrev: TBitBtn
        Left = 8
        Top = 69
        Width = 32
        Height = 19
        Caption = 'Prev'
        TabOrder = 4
        OnClick = btnPrevNextClick
      end
      object btnNext: TBitBtn
        Left = 8
        Top = 97
        Width = 32
        Height = 18
        Caption = 'Next'
        TabOrder = 5
        OnClick = btnPrevNextClick
      end
      object FileExtCase: TRadioGroup
        Left = 151
        Top = 140
        Width = 66
        Height = 53
        Caption = 'File Ext'
        Color = 16777172
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          'Normal'
          'UPPER'
          'lower')
        ParentColor = False
        ParentFont = False
        TabOrder = 6
        OnClick = FileExtCaseClick
      end
      object BitBtn3: TBitBtn
        Left = 10
        Top = 151
        Width = 47
        Height = 34
        Caption = 'Rename'
        TabOrder = 7
        OnClick = FileNameExtEditExit
      end
      object cbFileNameEdit: TCheckBox
        Left = 211
        Top = 68
        Width = 10
        Height = 19
        Caption = 'cbFileNameEdit'
        Color = 16777172
        ParentColor = False
        State = cbChecked
        TabOrder = 8
        OnClick = cbFileNameEditClick
      end
      object cbFileExtEdit: TCheckBox
        Left = 211
        Top = 94
        Width = 10
        Height = 19
        Caption = 'cbFileNameEdit'
        Color = 16777172
        ParentColor = False
        State = cbChecked
        TabOrder = 9
        OnClick = cbFileNameEditClick
      end
      object rgAutoNext: TRadioGroup
        Left = 24
        Top = 6
        Width = 185
        Height = 49
        Color = 16777172
        Columns = 2
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'